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FORMATTED LISTING 

; #################################################################################################### 
; # PROJECT : Apple /// SOS Parallel Printer Driver 1.31 (6502 Assembly Source Code) 
; # FILE NAME: PARPRINT . text 

; #################################################################################################### 



000001 
000002 
000003 
000004 
000005 
000006 
000007 
000008 
000009 
000010 
000011 
000012 
000013 
000014 
000015 
000016 
000017 
000018 
000019 
000020 
000021 
000022 
000023 
000024 
000025 
000026 
000027 
000028 
000029 
000030 
000031 
000032 
000033 
000034 
000035 
000036 
000037 
000038 
000039 
000040 
000041 
000042 
000043 
000044 
000045 
000046 
000047 
000048 
000049 
000050 
000051 
000052 
000053 
000054 
000055 
000056 



.NOPATCHLIST 
.TITLE 



"SOS Parallel Printer Driver 



1.31 17-Mar-83" 



SOS Parallel Printer Driver 

Copyright (C) 1983 by Apple Computer Inc. 
All rights reserved. 



Revisions : 



14-Jan-83 

New driver design, replaces version 1.01 22-Sep-81. 

Default slot number now undefined (was 1) . 

Defined DCB INVERT bit for printers with inverted logic. 

17-Mar-83 

Fixed test for ASC_CR in Auto Line Feed processing. 



DEVTYPE 
SUBTYPE 
APPLE 
RELEASE 



.EQU 
.EQU 
.EQU 
.EQU 
.PAGE 



41 
03 

0001 
1310 



; Character device, output only, printer 



The macro SWITCH performs an N way branch based on a switch index. The 
maximum value of the switch index is 127 with bounds checking provided 
as an option. The macro uses the A and Y registers and alters the C, 
Z, and N flags of the status register, but the X register is unchanged. 

SWITCH [index], [bounds], adrs_table, [*] 

index This is the variable that is to be used as the switch index. 
If omitted, the value in the accumulator is used. 

bounds This is the maximum allowable value for index. If index 

exceeds this value, the carry bit will be set and execution 
will continue following the macro. If bounds is omitted, 
no bounds checlcing will be performed. 

adrs_table This is a table of addresses (low byte first) used by the 
switch. The first entry corresponds to index zero. 

* If an asterisk is supplied as the fourth parameter, the 
macro will push the switch address but will not exit to 
it; execution will continue following the macro. The 
program may then load registers or set the status before 
exiting to the switch address . 



000057 


.MACRO 


SWITCH 




000058 


. IF 


"%1" <> "" 


;If PARMl is present. 


000059 


LDA 


%1 


; Load A with switch index 


000060 


.ENDC 






000061 


. IF 


"%2" <> "" 


;If PARM2 is present. 


000062 


CMP 


#%2+l 


; Perform bounds checking 


000063 


BCS 


$3579 


; on switch index 


000054 


.ENDC 






000065 


ASL 


A 




000066 


TAY 






000067 


LDA 


%3+l, Y 


;Get switch address from table 


000068 


PHA 




; and push onto stack 


000069 


LDA 


%3, Y 




000070 


PHA 






000071 


.IF 


"%4" <> "*" 


;If PARM4 is omitted. 


000072 


RTS 




; Exit to code 


000073 


.ENDC 




; Otherwise, drop through 


000074 


.IF 


"%2" <> "" 




000075 $3579 








000076 


.ENDC 






000077 


.ENDM 






000078 


.PROC 


PRINTER 




000079 


.WORD 


OFFFF 




000080 


.WORD 


68. 




000081 


.ASCII 


"Parallel Printer 


Driver — " 


000082 


.ASCII 


"Copyright (C) 19 


33 by Apple Computer Inc." 



000083 
000084 
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000085 
000086 

000087 
000088 
000089 
000090 
000091 
000092 
000093 
000094 
000095 
000096 
000097 
000098 
000099 
000100 
000101 
000102 
000103 
000104 
000105 
000106 
000107 
000108 
000109 
000110 
000111 
000112 
000113 
000114 
000115 
000116 
000117 
000118 
000119 
000120 
000121 
000122 
000123 
000124 
000125 
000126 
000127 
000128 
000129 
000130 
000131 
000132 
000133 
000134 
000135 
000136 
000137 
000138 
000139 
000140 
000141 
000142 
000143 
000144 
000145 
000146 
000147 
000148 
000149 
000150 
000151 
000152 
000153 
000154 
000155 
000156 
000157 
000158 
000159 
000160 
000161 
000162 
000163 
000164 
000165 
000166 
000167 
000168 
000169 
000170 
000171 
000172 
000173 
000174 
000175 
000176 
000177 




Device Handler Identification Block 



WORD 


0000 




;Link to next device handler 


WORD 


LP MAIN 




; Entry point address 


BYTE 


8 




; Length of device name 


ASCII 


" . PRINTER 






BYTE 


80 




; Device # (Mark active) 


BYTE 


OFF 




;Slot # of Parallel card 


BYTE 


00 




;Unit # 


BYTE 


DEVTYPE 






BYTE 


SUBTYPE 






BYTE 


00 






WORD 


0000 






WORD 


APPLE 






WORD 


RELEASE 







Device Handler Configuration Block 



RDYMASK 
RDYSTAT 



.BYTE 
.BYTE 



5 

060 
040 



for valid ready bits 
; Printer ready status value 



Power 
. 

PROPTNS 

;- 
; 

. 

CTRLVAL 
. 





Invert 



TIMEOUT 
. 

; 
; 
; 



Select I Pap. Out 



Auto LF| 



I STB pos 



Rib. Out 



Check 



ACK pos 



STB +8 



; Printer 



; Control 



options 



.BYTE 
.PAGE 



64 



; Timeout count for ACK 



SOS Device Handler Interface 



SOS INT 

REQCODE 

BUFFER 

REQCNT 

CTLSTAT 

CSLIST 



.EQU 
.EQU 
.EQU 
.EQU 
.EQU 
.EQU 



oco 

SOSINT+0 
SOSINT+2 
SOSINT+4 
SOSINT+2 
SOSINT+3 



; SOS request code 

; Buffer pointer 

; Requested count 

; Control/status code 

; Control/status list pointer 



SOS Global Subroutines 



ALLOCSIR .EQU 1913 ; SOS resource allocation 

DEALCSIR .EQU 1916 ; SOS resource deallocation 

SYSERR .EQU 1928 ; SOS error return 



SOS Error Codes 



XREQCODE .EQU 

XCTLCODE .EQU 

XNOTOPEN .EQU 

XNOTAVIL .EQU 

XNORESRC .EQU 

XBADOP .EQU 



20 
21 
23 
24 
25 
25 



; Invalid request code 

; Invalid control/status code 

; Device not open 

; Device not available 

;Resouce not available 

; Invalid operation for device 



Misecllaneous Equates 



TRUE .EQU 80 

FALSE .EQU 00 

ASC_LF .EQU OA 

ASC_CR .EQU OD 

BIT0N7 .EQU 80 

BIT0FF7 .EQU 7F 
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Local Variables 
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000178 
000179 

000180 
000181 
000182 
000183 
000184 
000185 
000186 
000187 
000188 
000189 
000190 
000191 
000192 
000193 
000194 
000195 
000195 
000197 
000198 
000199 
000200 
000201 
000202 
000203 
000204 
000205 
000206 
000207 
000208 
000209 
000210 
000211 
000212 
000213 
000214 
000215 
000216 
000217 
000218 
000219 
000220 
000221 
000222 
000223 
000224 
000225 
000226 
000227 
000228 
000229 
000230 
000231 
000232 
000233 
000234 
000235 
000236 
000237 
000238 
000239 
000240 
000241 
000242 
000243 
000244 
000245 
000246 
000247 
000248 
000249 
000250 
000251 
000252 
000253 
000254 
000255 
000256 
000257 
000258 
000259 
000260 
000261 
000262 
000263 
000264 
000265 
000266 
000267 
000268 
000269 
000270 




OPENFLG 

CRFLAG 

INVERT 

DEVOFF 

CTRLWRD 



.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 



FALSE 

FALSE 









; Device open flag 

; Previous character was CR 

;XOR with data for inverted logic 

;Offset to I/O addresses 

; Parallel card control word 



; Consumer State — The Consumer State is the current operational status 

; of the interrupt handler. The Idle state indicates that the consumer 

; has no data to send, and there is no pending ACK from the printer. The 

; Waiting for ACK state indicates that data has been STROBEd but the ACK 

; is still pending. The Waiting for Ready state indicates that data was 

; STROBEd when the printer was not Ready to accept it . The printer must 

; ACK when it becomes Ready, then the consumer will STROBE again. 



CSTATE 
IDLE 
WT_ACK 
WT_RDY 



.BYTE 
.EQU 
.EQU 
.EQU 





000 
080 
OCO 



Consumer State 

Idle, waiting for data 
Waiting for ACK 
Waiting for Ready 



Local Buffer — Logically, the Local Buffer contains $FF bytes and the 
Buffer Count may range from $00 through SFF. Physically, however, the 
Local Buffer contains $100 bytes so the producer and consumer pointers 
can be incremented without testing them for end of buffer or wrap around. 



BUFCNT 
PRODPTR 
CSMRPTR 
LOCBUF 



.BYTE ; Local buffer byte count 

.BYTE /Producer buffer pointer 

.BYTE ; Consumer buffer pointer 

.EQU * ; Local buffer 

.ASCII "Copyright (C) 1983 by Apple Computer Inc." 

.BLOCK *-LOCBUF"0FF+l ; Save $100 bytes for Local Buffer 



SIR_TBL 
SIR_NUM 



INTR_BANK 
SIR_CNT 



.WORD 

.BYTE 

.BYTE 

.WORD 

.BYTE 

.EQU 

.PAGE 



SIR_NUM 





LP_INTR 


*-SIR_NUM 



; System Resource Table 
;SIR Number 

; Address of interrupt handler 
: Bank number 



Hardware I/O Addresses 



B_REG .EQU OFFEF /Bank Register 

E_REG .EQU OFFDF ;Envlronment Register 

ANYSLOT .EQU OFFDD ;Any Slot Interrupt Flag 



Universal Parallel Interface Card 



Note: to generate a STROBE (write to C082, or write to C080 with 
; AutoStrobe enabled), the CPU must be in Fixed Speed mode. All 
; other registers may be accessed in either Fixed or Full Speed mode. 


PORTA 


.EQU 


0C080 


; Output port A 


PORTB 


.EQU 


0C081 


/Output port B 


READB 


.EQU 


0C083 


; Input port 


STROBE 


.EQU 


0C082 


; Send strobe 


DATARDY 


.EQU 


OC085 


;S6t DRDY, clear DRAK 


CLEAR 


.EQU 


0C087 


; Clear DRDY, AutoStrobe 


; Set ACK, 


DRAK 






STATUS 


.EQU 


0C084 


;UPIC Status Register 


7 


6 5 


4 

-+ + — 


3 2 10 
+ + + + 


+ 

ACK 1 
; Latched 1 


DFAK 1 

Latched 1 




ACK 
1 Level 1 



CTRLREG .EQU 0C086 ;UPIC Control Register 



7 


6 


5 4 3 
+ + +- 


2 


1 





Int E 


nable I 


Strobe/Ack Polarity I 
+ + +- 


Strobe 
+— 


Width = 
+ 


3 uS 1 


+ 

ACK 1 


DRAK 1 


STB 1 DRDY lACK/DRAKI 
+ + +- 


+ 8 1 
+- 


+4 1 
+ 


-2 1 
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Parallel Printer Driver — Mainline 
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000271 
000272 

000273 
000274 
000275 
000276 
000277 
000278 
000279 
000280 
000281 
000282 
000283 
000284 
000285 
000286 
000287 
000288 
000289 
000290 
000291 
000292 
000293 
000294 
000295 
000296 
000297 
000298 
000299 
000300 
000301 
000302 
000303 
000304 
000305 
000306 
000307 
000308 
000309 
000310 
000311 
000312 
000313 
000314 
000315 
000316 
000317 
000318 
000319 
000320 
000321 
000322 
000323 
000324 
000325 
000326 
000327 
000328 
000329 
000330 
000331 
000332 
000333 
000334 
000335 
000336 
000337 
000338 
000339 
000340 
000341 
000342 
000343 
000344 
000345 
000346 
000347 
000348 
000349 
000350 
000351 
000352 
000353 
000354 
000355 
000356 
000357 
000358 
000359 
000360 
000361 
000362 
000363 



LP_MAIN 

BADREQ 

NOTOPEN 

LP TBL 



LDA 
JSR 
LDA 
JSR 

.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 



REQCODE, 8, L 

#XREQCODE 
SYSERR 
#XNOTOPEN 
SYSERR 

LP_READ-1 

LP_WRITE-1 

LP_STAT-1 

LP_CNTL-1 

BADREQ- 1 

BADREQ-1 

LP_0PEN-1 

LP_CL0SE-1 

LP_INIT-1 



; Invalid request code 
; Device not open 



Parallel Printer Driver 



Initialization 



.EQU 

LDY 

DEY 

CPY 

RTS 

.PAGE 



SLOT 
#04 



; Check for valid slot # 

;If carry set out of range 
; SOS will mark inactive 



Parallel Printer Driver 



Open 



$010 



$020 



-EQU 
BIT 
BPL 
LDA 

JSR 

LDA 
ORA 
STA 
ASL 
ASL 
ASL 
ASL 
STA 
LDA 
AND 
STA 
LDA 
LDX 
LDY 
JSR 
BCC 
LDA 
JSR 

LDA 
STA 
JSR 
LDA 
STA 
RTS 
.PAGE 



OPENFLG 
$010 

#XNOTAVIL 
SYSERR 

SLOT 
#10 

SIR_NUM 

A 

A 

A 

A 

DEVOFF 

B_REG 

#0F 

INTR_BANK 

#SIR_CNT 

SIR_TBL 

SIR_TBL+1 

ALLOCSIR 

$020 

#XNORESRC 
SYSERR 

#IDLE 

CSTATE 

CNTLOO 

#TRUE 

OPENFLG 



; Printer open? 
;No 



; Set up resource nuinber 

; Offset to slot addresses 
; Set up interrupt bank 

; Allocate resource 

; Can't allocate resource 



Parallel Printer Driver 



Close 



$010 



.EQU 

ASL 
BCS 
JMP 

JSR 
LDA 
LDX 
LDY 
JSR 
RTS 



OPENFLG 

$010 

NOTOPEN 

CNTLOO 

#SIR_CNT 

SIR_TBL 

SIR_TBL+1 

DEALCSIR 



; Printer open ? 
;Yes, closed now 
;No, error request 

; Reset UPIC 



; Deallocate resource 
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000364 
000365 

000366 
000367 
000368 
000369 
000370 
000371 
000372 
000373 
000374 
000375 
000376 
000377 
000378 
000379 
000380 
000381 
000382 
000383 
000384 
000385 
000386 
000387 
000388 
000389 
000390 
000391 
000392 
000393 
000394 
000395 
000395 
000397 
000398 
000399 
000400 
000401 
000402 
000403 
000404 
000405 
000406 
000407 
000408 
000409 
000410 
000411 
000412 
000413 
000414 
000415 
000416 
000417 
000418 
000419 
000420 
000421 
000422 
000423 
000424 
000425 
000426 
000427 
000428 
000429 
000430 
000431 
000432 
000433 
000434 
000435 
000436 
000437 
000438 
000439 
000440 
000441 
000442 
000443 
000444 
000445 
000446 
000447 
000448 
000449 
000450 
000451 
000452 
000453 
000454 
000455 
000455 




Parallel Printer Driver 



$010 



.EQU 

BIT 
BMI 
JMP 

LDA 
JSR 
.PAGE 



OPENFLG 

$010 

NOTOPEN 

#XBADOP 
SYSERR 



; Printer open ? 
;Yes 

;No, return error 



Parallel Printer Driver 



Write / Producer 



LP WRITE 



$010 



$020 



$030 



$040 



$050 

$060 
$070 



$080 

$090 



.EQU 


* 




BIT 


OPENFLG 


Printer open ? 


BMI 


$010 


Yes 


JMP 


NOTOPEN 


No, return error 


LDA 


REQCNT 


One ' s Complement of REQCNT 


EOR 


#OFF 


to implement main loop: 


STA 


REQCNT 


While (RC:=RC+1)<>0 Do ... 


LDA 


REQCNT+1 




EOR 


#OFF 




STA 


REQCNT+1 




INC 


REQCNT 


Increment byte count 


BNE 


$030 




INC 


REQCNT+1 




BEQ 


$090 


All done 


LDY 


#0 




LDA 


(BUFFER) , Y 


Get character 


INC 


BUFFER 


Increment buffer address 


BNE 


$040 




INC 


BUFFER+1 




BNE 


$040 




LDX 


#80 




STX 


BUFFER+1 




INC 


1401+BUFFER 




BIT 


PROPTNS 


Auto Line Feed? 


BVC 


$060 


No 


ASL 


CRFLAG 


Last character CR? 


BCC 


$050 


No 


CMP 


#ASC LF 


This character LF? 


BEQ 


$020 


Yes — ignore it 


CMP 


#ASC CR 


This character CR? 


BNE 


$060 


No 


ROR 


CRFLAG 


Yes — set CR flag 


LDX 


PRODPTR 




STA 


LOCBUF,X 


Store character in local buffer 


LDX 


BUFCNT 


Check buffer count for max 


INX 






BEQ 


$080 




INC 


PRODPTR 


Bump producer pointer 


INC 


BUFCNT 


and buffer count 


JMP 


$020 


Loop 


JSR 


PRIME 


Prime the consumer and 


JMP 


$070 


recheck buffer count 


JSR 


PRIME 


Make sure consumer is running 


RTS 
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Subroutine PRIME 
Start up Consumer, 



and wait until printer is ready. 



$010 



$020 



-EQU 




BIT 


CSTATE 


BVC 


$020 


LDY 


DEVOFF 


LDA 


READB, Y 


EOR 


RDYSTAT 


AND 


RDYMASK 


BNE 


$010 


PHP 




SET 




JSR 


LP_INTR 


LDA 


E_REG 


AND 


#B I TOFF 7 


STA 


E_REG 


PLP 




BIT 


CSTATE 


BVS 


$010 


RTS 





;Wait for Ready 

;Call interrupt handler 
; Restore Full Speed 
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000457 
000458 

000459 ; 

000460 ; 

000461 ; Parallel Printer Driver — Interrupt Handler / Consumer 

000462 ; 

000463 ; This routine must be CALLED with INTERRUPTS DISABLED. During 

000464 ; execution, it selects Fixed Speed mode and ENABLES INTERRUPTS. 

000465 ; It always EXITS in Fixed Speed mode with INTERRUPTS DISABLED. 

000466 ; 

000467 ; 

000468 



000469 


LP_INTR 


LDA 


E_REG 




000470 




ORA 


#BIT0N7 


; Set Fixed Speed 


000471 




STA 


E_REG 




000472 




LDY 


DEVOFF 


;Get offset to card addresses 


000473 




LDA 


CTRLWRD 




000474 




AND 


#BIT0FF7 


; Disable card's interrupt 


000475 




STA 


CTRLWRD 




000476 




STA 


CTRLREG, Y 




000477 




LDA 


#02 




000478 




STA 


ANYSLOT 


; Clear 'Any Slot' interrupt 


000479 




CLI 






000480 
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000481 




BIT 


CSTATE 


;Test Int. Handler State 


000482 




BPL 


$020 


; Send a character 


000483 




LDX 


STATUS, Y 




000484 




BVC 


$010 


; Waiting for ACK 


000485 




LDA 


READB, Y 


; Check for READY 


000486 




EOR 


RDYSTAT 




000487 




AND 


RDYb4ASK 




000488 




BEQ 


$030 


; Re-Strobe printer 


000489 




TXA 






000490 




EOR 


#BIT0N7 




000491 




LDX 


#WT_RDY 


;Wait for Ready 


000492 




BNE 


$070 


; (unconditional branch) 


000493 










000494 


$010 


BPL 


$050 


;Wait for ACK 


000495 










000496 


$020 


LDA 


BUFCNT 


; Check buffer count 


000497 




BEQ 


$080 


;Wait for data 


000498 




LDX 


CSMRPTR 




000499 




LDA 


LOCBUF, X 


; Get character from buffer 


000500 




EOR 


INVERT 




000501 




STA 


PORTA, Y 


; and send it to printer 


000502 




DEC 


BUFCNT 




000503 




INC 


CSMRPTR 




000504 


$030 


STA 


STROBE, Y 


; Stobe Printer 


000505 




LDX 


#WT_RDY 




000505 




LDA 


READB, Y 


; Printer Ready? 


000507 




EOR 


RDYSTAT 




000508 




AND 


RDYMASK 




000509 




BNE 


$060 


; No 


000510 




LDX 


TIMEOUT 




000511 


$040 


LDA 


STATUS, Y 


;Wait for ACK or Time Out 


000512 




BMI 


$020 


; ACK, send next character 


000513 




DEX 






000514 




BPL 


$040 




000515 


$050 


LDX 


#WT_ACK 


;Wait for ACK 


000516 










000517 


$060 


LDA 


#BIT0N7 


; Enable Interrupt 


000518 










000519 


$070 


SEI 






000520 




STX 


CSTATE 


;Set Int. Handler State 


000521 




AND 


#BIT0N7 


; Enable Interrupt with 


000522 




ORA 


CTRLWRD 


; bit 7 of Accumulator 


000523 




STA 


CTRLWRD 




000524 




STA 


CTRLREG, Y 




000525 




RTS 






000526 










000527 


$080 


SEI 






000528 




LDX 


#IDLE 




000529 




STX 


CSTATE 


;Wait for data 


000530 




RTS 






000531 




.PAGE 






000532 


















000533 










000534 




Parallel Printer 


Driver — Status 




000535 










000536 


















000537 










000538 


LP_STAT 


BIT 


OPENFLG 


; Printer open ? 


000539 




BMI 


$010 




000540 




JMP 


NOTOPEN 


;No, return error 


000541 










000542 


$010 


LDY 


#00 




000543 




LDX 


CTLSTAT 




000544 




BEQ 


STATOO 




000545 




DEX 






000546 




BEQ 


STATOl 




000547 




DEX 






000548 




BEQ 


STAT02 




000549 




DEX 
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000550 




BEQ 


STAT03 






000551 


BADCTL 


LDA 


#XCTLCODE 


; Invalid control code 


000552 




JSR 


SYSERR 






000553 












000554 


STATOO 


RTS 






; — NOP 


000555 












000556 


STATOl 


TYA 






; 1 — Status table 


000557 




STA 


(CSLIST) , 


Y 




000558 




RTS 








000559 












000560 


STAT02 


TYA 






; 2 — New line 


000561 




STA 


(CSLIST) , 


Y 




000562 




RTS 








000563 












000564 


STAT03 


LDX 


DEVOFF 




;3 — Error status and buffer size 


000565 




LDA 


READB, X 






000566 




EOR 


RDYSTAT 






000567 




STA 


(CSLIST) , 


Y 




000568 




INY 






; Error status byte 


000569 




LDA 


#OFF 




; Buffer size, low byte 


000570 




STA 


(CSLIST) , Y 




000571 




JSR 


$010 




; high byte 


000572 




INY 








000573 




LDA 


BUFCNT 




; Number of chars in buffer, low 


000574 




STA 


(CSLIST) , 


Y 




000575 


$010 


INY 








000576 




LDA 


#00 




; high byte 


000577 




STA 


(CSLIST) , 


Y 




000578 




RTS 








000579 




.PAGE 









000580 
000581 
000582 

000583 
000584 
000585 
000586 
000587 
000588 
000589 
000590 
000591 
000592 
000593 
000594 
000595 
000596 
000597 
000598 
000599 
000600 
000601 
000602 
000603 
000604 
000605 
000606 
000607 
000608 
000609 
000610 
000611 
000612 
000613 
000614 
000615 
000616 
000617 
000618 
000619 
000620 
000621 
000622 
000623 
000624 
000625 
000626 
000627 
000628 
000629 
000630 



Parallel Printer Driver 



Control 



$010 



$010 
$020 



$030 



CNTL02 



BIT 
BMI 

JMP 

LDX 
BEQ 
DEX 
BEQ 
DEX 
BEQ 
JMP 

.EQU 

BIT 

BPL 
JSR 
BIT 
BMI 
LDA 
STA 
STA 
STA 
STA 
BIT 
BPL 
LDA 
STA 
PHP 
SEI 
LDY 
LDA 
AND 
STA 
STA 
STA 
PLP 
RTS 



RTS 
.END 



OPENFLG 
$010 

NOTOPEN 

CTLSTAT 
CNTLOO 



CNTL02 
BADCTL 



CSTATE 

$020 

PRIME 

CSTATE 

$010 

#00 

BUFCNT 

PRODPTR 

CSMRPTR 

CRFLAG 

PROPTNS 

$030 

#OFF 

INVERT 



DEVOFF 

CTRLVAL 

#2F 

CTRLWRD 
CTRLREG, Y 
CLEAR, Y 



; Printer open 
;Yes 



; Invalid request nuinber 



Test consumer state 

Ready 
Prime consumer and 

recheck state 



; Set buffer count to 

; Set producer pointer 
; Set consumer pointer 
;Set CR switch false 
; Check invert bit and 



set INVERT value 



; Init UPIC control register 
; Disable auto strobe 



; 2 New line 



#################################################################################################### 



END OF FILE 
LINES 

CHARACTERS 

Formatter 

Author 



PARPRINT.text 
630 
32172 

Assembly Language Reformatter 1.0.2 (07 January 1998) 
David T. Craig — 71533.606@compuserve.com — Santa Fe, New Mexico USA 



#################################################################################################### 



### 
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